home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 July / macformat-039.iso / Shareware City / Developers / LogoMation 1.1.1 / Examples / Rutland Middle school, Canada / face / face
Encoding:
Text File  |  1995-06-21  |  442 b   |  27 lines  |  [UVtx/UVtl]
  1. // PROGRAM BY MICHAEL JACOB
  2. // JUNE 1995
  3. // FINE ARTS 8 - COMPUTER GRAPHICS
  4. // RUTLAND MIDDLE SCHOOL
  5. // KELOWNA, BC, CANADA
  6. // INSTRUCTOR:  MR. B. HOPE
  7.  
  8. Function round(size,angle,deg)
  9.     Repeat deg
  10.         Forward size
  11.         Left angle
  12. Left 90    
  13. round(1,1,360)
  14. round(0.5,1,360)
  15. round(1,-1,360)
  16. round(0.5,-1,360)
  17. Left 192
  18. Forward 125
  19. Right 102
  20. Forward 40
  21. Right 90
  22. round(0.25,-1,180)
  23. Up
  24. Goto -50,-120,270
  25. Down
  26. round(1,1,180)
  27. sound "Indigo"